<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in</name>
<id>-1</id>
<cardCount>272</cardCount>
<cardID>9740</cardID>
<listID>36946</listID>
<cantModify><false /></cantModify>
<cantDelete><true /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>512</width>
<height>342</height>
</cardSize>
<script>***********************************************************************This sets things up and shows the opening animationon startupwaitcursorif item 4 of the screenrect < 481 then hide menubarhide message boxglobal waitticks, thiseffect, playsounds, localinfoput 1 into waitticksput "" into localinfohide card button "click me" of card 1if there is a cd button "sounds are" of cd id 124574 thenif the hilite of cd button "sounds are" of cd id 124574 = false thenput "true" into playsoundselseput "false" into playsoundsend ifif the shiftkey is down thenexit startupgo cd id 124574end ifend ifset cursor to handset the showname of card button "click me" of cd 1 to falseshow card button "click me" of cd 1set the showname of card button "click me" of cd 1 to truepass startupend startup***********************************************************************For Quick Touron quickstopglobal quick, playsoundsput "false" into quickif playsounds <> "false" then play clickrepeat while the mouseclickend repeatset the lockscreen to truehide bg button "quick stop"hide bg button "quick next"go cd "first"repeat while the mouseclickend repeatshow cd pictureset the lockscreen to falsego cd id 124574repeat while the mouseclickend repeatend quickstopon quicknextglobal quick, playsounds, tempeffectput "true" into quickput "barn door open" into tempeffectset cursor to "fist"set the lockscreen to trueif there is a card button "mask" then hide card button "mask"if there is a card button "see" then hide card button "see"if there is a card button "continued" then hide card button "continued"if there is a bg button "quick stop" then show bg button "quick stop"if there is a bg button "quick next" then show bg button "quick next"set cursor to "hand"go cd "quick first"if playsounds is not "false" then play floopset the lockscreen to falsedoquick 14875set cursor to "hand"doquick 33138doquick 64278doquick 11392doquick 5835doquick 36305doquick 85872doquick 19834doquick 50566doquick 15740doquick 41249doquick 5384doquick 114208doquick 3945doquick 76097doquick 32151quickstoprepeat while the mouseclickend repeatexit quicknextend quicknexton doquick thecardglobal tempeffect, playsoundswait until the mouseclickrepeat while the mouseclickend repeatset cursor to "fist"if the clickloc is within the rect of bg button "quick next" thenif playsounds is not "false" then play floopgo cd id thecardif thecard contains "session" then send dothing to card thecardunlock screen with visual tempeffectrepeat while the mouseclickend repeatset cursor to "hand"exit doquickelse if the clickloc is within the rect of bg button "quick stop" thenrepeat while the mouseclickend repeatquickstopexit to hypercardelseput "Please click on a button at the bottom of the screen."wait 120 ticksput ""hide msgrepeat while the mouseclickend repeatend ifset cursor to "hand"repeat while the mouseclickend repeatend doquick***********************************************************************This is the quick reaction to all mousedowns***********************************************************************on mousedownset cursor to "fist"buttonsoundend mousedown***********************************************************************These are for hot text***********************************************************************This is for fields that popup popupson hotpopupglobal thiseffect, playsoundswaitcursorrepeat while the mouseclickend repeatif playsounds is not "false" then play bleepif "field" is not in the name of the target then -- is this necessary?put "You have clicked on an inactive area."wait 66 ticksput ""hide msgexit hotpopupelseput textstyle of the clickchunk into thestyleif "group" is not in thestyle thenput "Please click on underlined text."wait 66 ticksput ""hide msgexit hotpopupelse -- if the clickchunk has a grey underlinewaitcursorput the clicktext into whatwasclickedselect the clickchunkif whatwasclicked = "Internet Resource Guide" thengo cd id 6247exit hotpopupelseput whatwasclicked &" popup" into popupfieldset the lockscreen to trueput 20 + (item 2 of the clickloc) into showlochidefieldsset the rect of cd field popupfield to¬(item 1 of the clickloc + 15), (item 2 of the clickloc + 7),¬485, (item 2 of the clickloc + 50)show cd field popupfield--382, showloc -- horiz, verticalunlock screen with visual "zoom open"exit hotpopuprepeat while the mouseclickend repeatend if -- if it's "irg"end if -- if it's underlinedend if -- if it's a fieldend hotpopupThis is for fields where what you want is in the name of the target fieldon gohereglobal thiseffect, playsoundsput "scroll right" into thiseffectwaitcursor-- if playsounds <> "false" then play bleenkput the short name of the target into goherego cd gohererepeat while the mouseclickend repeatend gohereThis is for fields where you want to get the entire contents and go tothe card of that nameon hotfieldwaitcursorglobal thiseffect, playsoundsrepeat while the mouseclickend repeatput "scroll right" into thiseffect-- if playsounds <> "false" then play bleenkif "group" is not in the textstyle of the clickchunk thenput "That is where we are. (Click on underlined text.)"wait 120 ticksput ""hide msgexit hotfieldelseput target into wheretogo -- put the contents of the target fieldselect the clickchunkif "information centers" is not wheretogo thengo cd wheretogoexit hotfieldelsego cd "network information centers"exit hotfieldend ifend ifrepeat while the mouseclickend repeatend hotfieldThis is to get what was clicked on and go to the card of that nameon hottextcardsearchwaitcursorglobal playsoundsrepeat while the mouseclickend repeatif "field" is not in the name of the target thenput "You have clicked on an inactive area."wait 66 ticksput ""hide msgelseput textstyle of the clickchunk into thestyleif "group" is not in thestyle thenput "Please click on underlined text."wait 66 ticksput ""hide msgexit hottextcardsearchelse -- if the clickchunk is underlined-- if playsounds <> "false" then play bleenkwaitcursorselect the clickchunk -- highlightput the clicktext into whatwasclicked-- put "true" into searching -- is this needed?-- put the target-- push card-- put whatwasclickedset the lockscreen to trueif whatwasclicked = "computing centers" thengo cd id 8622else if whatwasclicked = "library catalogs" thengo cd id 16476else if whatwasclicked = "data archives" thengo cd id 15974else if whatwasclicked = "white pages" thengo cd id 17131else if whatwasclicked = "miscellaneous" thengo cd id 9455elsego cd whatwasclickedend ifunlock screen with visual "zoom open"end ifend ifrepeat while the mouseclickend repeatend hottextcardsearch*****This is for all other (uncaptured) mouseclicksIt has the default "hot text" code,for getting underlined text that was clicked on in a fieldand finding that text in a field on another card*****on mouseuprepeat while the mouseclickend repeatglobal thiseffect, playsounds, thistarget, whatwasclickedput "" into theresultif "field" is not in the target thenput "You have clicked on an inactive area."wait 66 ticksput ""hide msgexit mouseupelse -- if it's a fieldif the target contains "popup" thenhide the targetexit mouseupelseput the textstyle of the clickchunk into thestyleif "group" is not in thestyle thenput "Please click on underlined text."wait 86 ticksput ""hide msgexit mouseupelseselect the clickchunk -- highlight-- if playsounds <> "false" then play bleenkwaitcursorput the clicktext into whatwasclickedpush cardput "zoom open" into thiseffectrepeat while the mouseclickend repeatset the lockscreen to trueif the short name of this bg is "glossary" then -- search glossary firstif whatwasclicked is "Internet" thengo cd id 64278else if whatwasclicked is "arpanet" thengo cd "arpanet glossary"else if whatwasclicked is "Network" thengo cd id 29910else if whatwasclicked is "OSI" thengo cd id 24101else if whatwasclicked is "Packet" thengo cd id 26348else if whatwasclicked is "RFC" thengo cd id 69824else if whatwasclicked is "Server" thengo cd id 71232else if whatwasclicked is "Switch" thengo cd id 72810else if whatwasclicked is "NIC" thengo cd id 4447-- else find whole whatwasclicked in field "TITLE GLOSSARY"---- if the result is not "" then find whole whatwasclicked in field "TITLE"--else find whole whatwasclicked in field "level 3 glossary"if the result is "" thenopencardexit mouseupelse if the result is not "" then find whole whatwasclicked in field "level 4"if the result is "" thenopencardexit mouseupelse if the result is not "" then find whole whatwasclicked in field "level 3"if the result is "" thenopencardexit mouseupelse if the result is not "" then find whole whatwasclicked in field "level 2"if the result is "" thenopencardexit mouseupend ifelse -- if the name of this bg is not glossary -- search glossary lastif whatwasclicked is "Internet" thengo cd id 11392else if whatwasclicked is "arpanet" thengo cd id 54201else if whatwasclicked is "Network" thengo cd id 29910else if whatwasclicked is "telnet" thengo cd id 3945else if whatwasclicked is "bitnet" thengo cd id 56362else if whatwasclicked is "DDN" thengo cd id 44798else if whatwasclicked is "CREN/CSNET" thengo cd id 80747else if whatwasclicked is "CREN" thengo cd id 58892-- else find whole whatwasclicked in field "TITLE"---- if the result is not "" then find whole whatwasclicked in field "TITLE GLOSSARY"--else find whole whatwasclicked in field "level 4"if the result is "" thenopencardexit mouseupelse if the result is not "" then find whole whatwasclicked in field "level 3"if the result is "" thenopencardexit mouseupelse if the result is not "" then find whole whatwasclicked in field "level 2"if the result is "" thenopencardexit mouseupelse if the result is not "" then find whole whatwasclicked in field "level 3 glossary"if the result is "" thenopencardexit mouseupelse if the result is "" thenopencardexit mouseupend ifrepeat while the mouseclickend repeatend if -- if glossary or not glossaryput the result into theresultif theresult is not "" thenput "Sorry, couldn't find it."put "plain" into thiseffectpop card-- put "" into searchingwait 96 ticksput ""hide msgexit mouseuprepeat while the mouseclickend repeatend if -- not foundend if -- not underlinedend if -- not a popupend if --not a fieldend mouseup***********************************************************************These are for the buttons at the bottom and on the notes paletteon doprintnotesglobal thenoteswaitcursorput "Printing notes"put cd field notes into thenotesprint thenoteswait 120 ticksput ""hide msgrepeat while the mouseclickend repeatend doprintnoteson dohidenotesglobal thenotes, notedput "" into notedwaitcursorset the lockscreen to trueput the userlevel into thelevelset the userlevel to 5if there is a cd field "notes" thenput cd field notes into thenotesselect cd field "notes"domenu "clear field"end ifif there is a cd button "print export hide " thenselect cd button "print export hide "domenu "clear button"end ifset the userlevel to thelevelpush cardset the lockrecent to trueset the lockmessages to truego stack "internet tour"put thenotes into cd field "notes" of cd id 12906pop cardhide bg button "notes grey"choose browse toolset the lockscreen to falseset the lockrecent to falseset the lockmessages to falserepeat while the mouseclickend repeatend dohidenoteson doexportnoteswaitcursorglobal thenotesAsk "Name for the new file?"if it is "" thenput "Bye!"wait 120 ticksput ""hide msgexit doexportnoteselseput it into thefileopen file quote&thefile"ewrite cd field "notes" to file quote&thefile"ewrite return to file quote&thefile"eclose file quote&thefile"erepeat while the mouseclickend repeatend ifend doexportnoteson donotesglobal thenotes, notedif noted is "true" then exit donoteselseput "true" into notedshow bg button "notes grey"waitcursorpush cardset the lockscreen to trueset the lockrecent to trueset the lockmessages to truego cd id 12906 of stack "internet tour"if there is a cd field notes then put cd field notes into thenotesput the userlevel into prevlevelset the userlevel to 5choose field toolif there is a cd field notes then select cd field "notes"domenu "copy field"pop carddomenu "paste field"if there is a cd field notes then put thenotes into cd field "notes"push cardgo cd id 12906 of stack "internet tour"choose button toolif there is a cd button 1 then select cd button 1domenu "copy button"pop carddomenu "paste button"choose browse toolrepeat while the mouseclickend repeatset the userlevel to prevlevel-- set the lockscreen to falseset the lockrecent to falseset the lockmessages to falserepeat while the mouseclickend repeatend ifend donoteson doseealsowaitcursorput "There isn't any more here."wait 86 ticksrepeat while the mouseclickend repeatput ""hide msgend doseealsoon donextwaitcursorglobal thiseffectput "scroll left" into thiseffectrepeat while the mouseclickend repeatgo nextend donexton dobackwaitcursorglobal thiseffectput "zoom close" into thiseffect -- this is to zoom backif "help" is in the name of this cd thenpop cardelsego backend ifif the short name of this cd is "notes" thenrepeat while the mouseclickend repeatgo backend ifend dobackon doprevwaitcursorglobal thiseffectput "scroll right" into thiseffectgo prevend doprevon dohelpwaitcursorpush cardglobal thiseffectput "venetian blinds slow" into thiseffectrepeat while the mouseclickend repeatgo to card "help" of stack "internet tour"end dohelpon doprintput "Preparing to print."waitcursorglobal thiseffectput "venetian blinds slow" into thiseffectif bg field "list" = "" and there is not a cd field "list" thenput "Printing the card."domenu "print card"elseput "Printing the fields on this card."put "" into printthisrepeat with i = 1 to the number of bg fieldsput bg field i after printthisput return after printthisend repeatrepeat with j = 1 to the number of cd fieldsput cd field j after printthisput return after printthisend repeatprint printthisend ifwait 120 ticksput ""hide msgend doprinton domapwaitcursorglobal thiseffectput "venetian blinds slow" into thiseffectgo to card id 13527 of stack "internet tour"end domapon dothemenuwaitcursorglobal thiseffectput "barn door close" into thiseffectgo to card id 124574 of stack "internet tour"end dothemenuon docreditswaitcursorglobal thiseffectput "dissolve" into thiseffectgo cd "credits" of stack "internet tour"end docreditson dohomeglobal localinfo, thiseffectwaitcursorif the short name of this stack is not "internet tour" thenlock screengo stack "internet tour"go card "last"unlock screen with visual dissolveunlock screenunlock screenelsego card "last"unlock screen with visual dissolveend ifwaitcursorwaitcursorwaitcursorset the icon of cd button "eye" to "eye grey"end dohome***********************************************************************This happens when you click on a mapon gomap cdidset the lockscreen to falseglobal thiseffectput "zoom open slow" into thiseffectwaitcursorgo cd id cdidend gomap***********************************************************************This happens when you choose something from a menuon menueffect CARDidglobal thiseffectwaitcursorput "barn door open" into thiseffectGO TO CD id CARDidend menueffect***********************************************************************This happens when you click on an index tabon tabeffect CARDidglobal thiseffectwaitcursorput "wipe left" into thiseffectGO TO CD id CARDidend tabeffect***********************************************************************These happen whenever you go to another cardon closecard -- This checks to see if the notes are showingglobal notedif noted = "true" thendohidenotesend ifif the short name of this cd = "glossary" then show bg field "level 3 glossary"end closecard***********************************************************************This is so stuff can happen invisibly when a card is openedthen the screen gets unlocked on opencardon gorepeat while the mouseclickend repeatset the lockscreen to truepass goend goon opencardglobal thiseffect, quickif thiseffect is "" then put "scroll down" into thiseffectif the name of this card contains "popup" then hidefieldsif quick is "true" then -- In Quick Tourhide groupshide cd pictureif there is a card button "mask" then hide card button "mask"if there is a card field "netlist" then hide card field "netlist"if there is a card field "directions" then hide card field "directions"if there is a card button "continued" then hide card button "continued"if there is a bg button "quick stop" then show bg button "quick stop"if there is a bg button "quick next" then show bg button "quick next"repeat with i = 1 to the number of bg fieldsget bg field iif it = "" thenhide bg field ielseshow bg field iend ifend repeatunlock screen with visual thiseffectexit opencardelse -- Not in Quick Tourshow cd pictureshow groupsif there is a bg button "quick stop" then hide bg button "quick stop"if there is a bg button "quick next" then hide bg button "quick next"if there is a card field "directions" then show card field "directions"if there is a card button "mask" then show card button "mask"if there is a card button "continued" then show card button "continued"if "credits" is in the short name of this card thenset the scroll of card field "Credits" to 0send dothing to this cardexit opencardelse if the short name of this bg is "menus" then -- get out nowunlock screen with visual thiseffectexit opencardelse if the short name of this bg is "glossary" thenif the short name of this cd = "glossary" then ¬hide bg field "level 3 glossary"unlock screen with visual thiseffectexit opencardend if-- For cards that aren't in the starry background or the glossaryrepeat with i = 1 to the number of bg fieldsget bg field iif it = "" thenhide bg field ielseshow bg field iend ifend repeatif there is a cd field "netlist" thenfind (the short name of this card) in cd field netlist of this card-- Scrolls to the current network, and outlines its name in the listunlock screen with visual thiseffect -- get out nowexit opencardelse -- For cards other than the NSF network list on the mapssetscrollend ifif there is not a cd button "continued" and¬"session" is not in the short name of this card then -- get out nowunlock screen with visual thiseffectexit opencardelse if the short name of this card contains "session" thensend dothing to this cardexit opencard -- do the sample session thing, then get out-- else if there is a cd button "continued" then-- unlock screen with visual thiseffect -- Last thing to do-- flasharrow-- exit opencardend ifunlock screen with visual thiseffect -- in case anything is leftexit opencardend ifend opencard***********************************************************************These are called from within other scriptson whereyouareput "That is where you are--try clicking on underlined text."wait 120 ticksput ""hide msgend whereyouareon decorativeput "This icon is purely decorative."wait 120 ticksput ""hide msgend decorativeon buttonsound -- plays a soundglobal playsoundsif playsounds <> "false" then play clickend buttonsoundon waitcursor -- spins the world cursorglobal waitticksset cursor to world1wait waitticks ticksset cursor to world2wait waitticks ticksset cursor to world3wait waitticks ticksset cursor to world4wait waitticks ticksset cursor to world5wait waitticks ticksset cursor to world6wait waitticks ticksset cursor to world7wait waitticks ticksset cursor to world8wait waitticks ticksset cursor to world1end waitcursoron flasharrowwait 5 ticksset the icon of cd button "continued" to "next arrow"wait 10 ticksset the icon of cd button "continued" to "next arrow inverted"wait 5 ticksset the icon of cd button "continued" to "next arrow"wait 5 ticksset the icon of cd button "continued" to "next arrow inverted"end flasharrowon hidefieldslock screenrepeat with i = 1 to the number of cd fieldsif the name of cd field i contains "popup" thenhide cd field iend ifend repeatrepeat with i = 1 to the number of cd buttonsif the name of cd button i contains "popup" thenhide cd button iend ifend repeatunlock screenend hidefieldson setscroll -- scrolls scrolling fields to the topif the number of card fields > 0 thenrepeat with i=1 to (the number of card fields)if the style of card field i is "scrolling" thenset the scroll of card field i to 0end ifend repeatend ifif the number of bg fields > 0 thenrepeat with i=1 to (the number of bg fields)if the style of bg field i is "scrolling" thenset the scroll of bg field i to 0end ifend repeatend ifend setscrollon lockthingsset the lockrecent to trueset the lockmessages to trueend lockthingson unlockthingsset the lockrecent to falseset the lockmessages to falseend unlockthingsJane DineenBBN10 Moulton StCambridge Mass. 02138jdineen@bbn.com(617) 873-2945--on openstackhide menuBarhide message boxif the short name of this stack is "Internet tour" thenglobal waitticks, thiseffect, playsounds, localinfoput "" into localinfohide card button "click me" of card 1if the hilite of cd button "sounds are" of cd id 124574 = false thenput "true" into playsoundselseput "false" into playsoundsend if--if playsounds is not "false" then play "bleenk"waitcursorput 1 into waitticksif the number of this card is not "1" thenexit openstackelse if the shiftkey is down thenexit openstackgo cd "top menu"elseset cursor to handset the showname of card button "click me" to falseshow card button "click me"set the showname of card button "click me" to trueend ifend ifend openstack</script>
